home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / oper_sys / emerald / emrldsys.lha / Language / ExecTests / toutstream.m < prev    next >
Text File  |  1990-08-31  |  451b  |  17 lines
  1. import runtest from "RunTest"
  2.  
  3. const toutstream <- object toutstream
  4.   const myTest == runtest.create[stdin, stdout, nil]
  5.   process
  6.     % each test looks like myTest.check[<boolean expression>, "<same exp>"]
  7.     stdout.PutChar['T']
  8.     stdout.PutChar['\^J']
  9.     stdout.PutInt[36, 0]
  10.     stdout.PutChar['\^J']
  11.     stdout.PutReal[99.87]
  12.     stdout.PutChar['\^J']
  13.     stdout.PutString["This is a string.\^J"]
  14.     myTest.done
  15.   end process
  16. end toutstream
  17.